home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 60.zip
/
BS1 part 60
/
Kick Pascal v2.10 d1.adf
/
INCLUDE
/
graphics
/
gfx.unit.h
< prev
next >
Wrap
Text File
|
1990-11-01
|
390b
|
26 lines
{$if not def GRAPHICS_GFX_H}
Const
GRAPHICS_GFX_H=0;
BITSET=$8000;
BITCLR=0;
Type
p_Rectangle=^Rectangle;
Rectangle=Record
MinX,MinY,MaxX,MaxY:integer
End;
p_tPoint=^tPoint;
tPoint=Record
x,y:integer
End;
PLANEPTR=^Ptr;
p_BitMap=^BitMap;
BitMap=Record
BytesPerRow,Rows:Word;
Flags,Depth:Byte;
pad:Word;
Planes:Array[0..7]of PLANEPTR
End;
Function RASSIZE(w,h:Long):Long;
{$endif}